Nhập vào từ bàn phím số nguyên dương X và số K (1 ≤ X, K ≤ \(10^5\) ).
Xuất ra màn hình các kết qủa sau đây:
+ Dòng 1: in ra ước nguyên dương nhỏ nhất và lớn nhất của số X.
+ Dòng 2: in ra các số \(X^2\) và K-X cách nhau ít nhất một dấu cách.
Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B
Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B
var a,b,i,t,s: word;
begin
repeat
writeln('Nhap A,B vao: (cach nhau boi dau Enter)');
readln(a);
read(b);
writeln('Nhap lai gia tri A,B: ');
until (a>=1) and (b>=1) and (a<=10000) and (b<10000);
s:=a+b;
t:=a*b;
if s<t then i:=s else i:=t;
while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;
writeln('UCLN cua A+B va AB: ',i);
writeln('So du khi chia AB cho A+B: ', t mod s);
end.
Nhập vào từ bàn phím số nguyên M,1<M<10^4.
Yêu cầu in ra màn hình các kết quả sau:
+Dòng thứ nhất ghi 2 ước nhỏ nhất và lớn nhất của M (toán Tin)
Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √N
Dòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*N
Dòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0.
Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ
uses crt;
var n,i:integer;
m:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=30000);
m:=0;
for i:=1 to n do
m:=m+sqrt(i);
writeln('m=',m:4:2);
readln;
end.
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
uses crt;
var n,i,d,x,j,tam:longint;
a:array[1..11]of integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
str(n,st);
d:=length(st);
for i:=1 to d do
begin
val(st[i],a[i],x);
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to d do
write(a[i]);
readln;
end.
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Mình cần giúp bài này
Nhập từ bàn phím số nguyên dương N (1N109)
Hiển thị ra màn hình:
+ Dòng 1: ghi số A là tổng các số nguyên chẵn và chia hết cho 3 thuộc đoạn
từ 1 đến N.
+ Dòng 2: ghi số B là ước nguyên dương lớn nhất của N (B N).
+ Dòng 3: ghi số C là số lượng các chữ số của N.
+ Dòng 4: ghi YES nếu N là số nguyên tố, ngược lại hiển thị NO.
Ví dụ:
Nhập vào | Hiển thị |
N = 25 | 4 2 |
N = int(input())
A = 0
B = 0
So_uoc = 0
KQ = ""
for x in range(1, N):
if (x%2==0) and (x%3==0):
A += 1
if (x>0) and (N%x==0):
if (x>B):
B = x
for i in range(1, N+1):
if (N%i==0):
So_uoc += 1
if (So_uoc == 2):
KQ = "YES"
else:
KQ = "NO"
print(A)
print(B)
print(len(str(N)))
print(KQ)
(Chẳng biết đúng không đâu )
Câu 1. Nhập số N nguyên dương và dãy N số nguyên từ bàn phím
-in ra dãy số nhập (các số in trên 1 dòng cách nhau bởi dấu cách
-tính tổng các số trong dãy chia hết cho 3, in hết kết quả ra màn hình
GIÚp mik vs ạ!!!!
# Nhập số nguyên dương N từ bàn phím
N = int(input("Nhập số nguyên dương N: "))
# Khởi tạo dãy số nguyên
numbers = []
# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers
for i in range(N):
number = int(input("Nhập số thứ {}:".format(i+1)))
numbers.append(number)
# In ra dãy số đã nhập
print("Dãy số bạn đã nhập là: ", end="")
for number in numbers:
print(number, end=" ")
print()
# Tính tổng các số chia hết cho 3 và in ra màn hình
total = 0
for number in numbers:
if number % 3 == 0:
total += number
print("Tổng các số trong dãy chia hết cho 3 là: ", total)
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.